home *** CD-ROM | disk | FTP | other *** search
/ Iona Software Demo / MacWin_IonaSoftware_DemoCD.iso / pc / demo.exe / demo.DXR / 00011_go to iona.ls < prev    next >
Encoding:
Text File  |  1996-02-23  |  715 b   |  27 lines
  1. on mouseDown
  2.   global KidMovie, ionamus, pathToMain, spacer, lang, reallyQuit
  3.   set the timeoutScript to EMPTY
  4.   set HitSprite to the clickOn
  5.   set wait to 2000
  6.   puppetSprite(HitSprite, 1)
  7.   repeat with i = 1 to 8
  8.     repeat with c = 1 to wait
  9.     end repeat
  10.     set the castNum of sprite HitSprite to the number of cast ("iona" & i)
  11.     updateStage()
  12.   end repeat
  13.   repeat with i = 8 down to 1
  14.     repeat with c = 1 to wait
  15.     end repeat
  16.     set the castNum of sprite HitSprite to the number of cast ("iona" & i)
  17.     updateStage()
  18.   end repeat
  19.   puppetSprite(HitSprite, 0)
  20.   set reallyQuit to 0
  21.   sound stop 1
  22.   sound stop 2
  23.   set the timeoutScript to EMPTY
  24.   sound playFile 1, ionamus
  25.   play movie KidMovie
  26. end
  27.